home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / debug / fact.scm < prev    next >
Text File  |  1995-10-13  |  114b  |  9 lines
  1.  
  2. ; don't copyright this, silly shell script
  3.  
  4.  
  5. (define (fact n)
  6.   (if (= n 0)
  7.       1
  8.       (* n (fact (- n 1)))))
  9.